inherited formCadAnamnese: TformCadAnamnese
  Caption = 'Cadastro de Anamnese'
  ClientHeight = 432
  ClientWidth = 603
  ExplicitWidth = 619
  ExplicitHeight = 470
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TPageControl
    Width = 603
    Height = 368
    ActivePage = tbsficha
    ExplicitWidth = 603
    ExplicitHeight = 368
    inherited tbsGrid: TTabSheet
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 108
      ExplicitHeight = 0
      inherited dbgConsulta: TDBGrid
        Width = 595
        Height = 267
        DataSource = dsAnamnese
      end
      inherited pnlFiltro: TPanel
        Width = 595
        ExplicitWidth = 108
        object odlNumPergunta: TOdontoLabel
          Left = 15
          Top = 4
          Width = 69
          Height = 13
          Caption = 'Num.Pergunta'
        end
        object odlPergunta: TOdontoLabel
          Left = 102
          Top = 5
          Width = 44
          Height = 13
          Caption = 'Pergunta'
        end
        object oedNumPergunta: TOdontoEdit
          Left = 15
          Top = 20
          Width = 69
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 0
          CorFoco = 15461355
        end
        object oedPergunta: TOdontoEdit
          Left = 102
          Top = 21
          Width = 238
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 1
          CorFoco = 15461355
        end
      end
    end
    inherited tbsficha: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 595
      ExplicitHeight = 358
      object OdontoLabel1: TOdontoLabel
        Left = 18
        Top = 11
        Width = 99
        Height = 13
        Caption = 'Numero da Pergunta'
      end
      object OdontoLabel2: TOdontoLabel
        Left = 19
        Top = 55
        Width = 44
        Height = 13
        Caption = 'Pergunta'
      end
      object dbeNumPergunta: TDBOdontoEdit
        Left = 18
        Top = 26
        Width = 47
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Anm_Cd'
        DataSource = dsAnamnese
        ReadOnly = True
        TabOrder = 0
        CorFoco = 15461355
      end
      object dbePergunta: TDBOdontoEdit
        Left = 16
        Top = 71
        Width = 542
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Anm_Pergunta'
        DataSource = dsAnamnese
        TabOrder = 1
        CorFoco = 15461355
      end
      object DBOdontoCheckBox1: TDBOdontoCheckBox
        Left = 16
        Top = 105
        Width = 102
        Height = 17
        Caption = 'Avisar na Agenda'
        DataField = 'Anm_Avisa'
        DataSource = dsAnamnese
        TabOrder = 2
        ValueChecked = 'S'
        ValueUnchecked = 'N'
      end
    end
  end
  inherited pnlBotoes: TPanel
    Width = 603
    ExplicitWidth = 603
    inherited imgBotoes: TImage
      Width = 601
      ExplicitWidth = 601
    end
  end
  inherited statCadastro: TStatusBar
    Top = 407
    Width = 603
    ExplicitTop = 407
    ExplicitWidth = 603
  end
  object dsAnamnese: TDataSource
    DataSet = qAnamnese
    Left = 273
    Top = 221
  end
  object qAnamnese: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT Anm_Cd,'
      '             Anm_Pergunta, '
      '             Anm_Avisa'
      'FROM Anamnese')
    Left = 269
    Top = 269
    object qAnamneseAnm_Cd: TAutoIncField
      DisplayLabel = 'Num.Pergunta'
      FieldName = 'Anm_Cd'
      ReadOnly = True
    end
    object qAnamneseAnm_Pergunta: TStringField
      DisplayLabel = 'Pergunta'
      FieldName = 'Anm_Pergunta'
      Size = 100
    end
    object qAnamneseAnm_Avisa: TStringField
      DisplayLabel = 'Avisar Agenda'
      FieldName = 'Anm_Avisa'
      FixedChar = True
      Size = 1
    end
  end
  object qDinamica: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <>
    Left = 196
    Top = 271
  end
  object qAnanmesePadrao: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT Anp_Resposta,'
      '             Anp_NumPergunta,'
      '             Anp_Anotacao,'
      '             Anp_Pergunta'
      'FROM AnamnesePadrao')
    Left = 391
    Top = 190
    object qAnanmesePadraoAnp_Resposta: TStringField
      FieldName = 'Anp_Resposta'
      FixedChar = True
      Size = 1
    end
    object qAnanmesePadraoAnp_NumPergunta: TIntegerField
      FieldName = 'Anp_NumPergunta'
    end
    object qAnanmesePadraoAnp_Anotacao: TStringField
      FieldName = 'Anp_Anotacao'
      Size = 100
    end
    object qAnanmesePadraoAnp_Pergunta: TStringField
      FieldName = 'Anp_Pergunta'
      Size = 100
    end
  end
end
